home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / ShareMailGiftware / AmigaTalk / general / Boolean.st < prev    next >
Text File  |  2002-10-27  |  326b  |  21 lines
  1. Class Boolean :Object
  2. [
  3.     & aBoolean
  4.       ^ self and: [aBoolean]
  5. |   
  6.     | aBoolean
  7.       ^ self or: [aBoolean]
  8. |   
  9.     and: aBlock   
  10.       ^ self and: [aBlock value]
  11. |   
  12.     or:  aBlock  
  13.       ^ self or: [aBlock value]
  14. |   
  15.     eqv: aBoolean
  16.       ^ self == aBoolean
  17. |   
  18.     xor: aBoolean
  19.       ^ self ~~ aBoolean
  20. ]
  21.